---
title: "Assignment: Midterm Review"
output:
flexdashboard::flex_dashboard:
source_code: embed
orientation: columns
theme: cosmo
editor_options:
chunk_output_type: console
---
```{r, libraries, include = FALSE}
## here to navigate project directory
library(here)
## tidyverse for data wrangling and visualization
library(tidyverse)
## scales for variable scales
library(scales)
## flexdashboard to build dashboards in R Markdown
library(flexdashboard)
## shiny for reactive dashboards
library(shiny)
## hexbin for hex plots
library(hexbin)
```
```{r, global, include = FALSE}
### import data objects
## use readRDS() to import the data file
car_seats_work <- readRDS(
## use here() to locate file in our project directory
here(
# folder
"data",
# file
"car_seats_work.rds"
)
)
```
Column {.tabset .tabset-fade}
-----------------------------------------------------------------------
### Violin Plot
```{r, plot_1}
ggplot(car_seats_work, aes(x = shelve_loc, y = price, fill = urban)) +
geom_violin() +
scale_y_continuous(labels = dollar_format(), breaks = seq(0, 200, 25)) +
labs(x = "Shelf Location", y = "Price (in thousands)", fill = "Urban")
```
### Hex Bin Plot
```{r, plot_2}
ggplot(car_seats_work, aes(x = age, y = income)) +
geom_hex() +
scale_y_continuous(labels = dollar_format(), breaks = seq(0, 125, 25)) +
labs(x = "Age", y = "Income", fill = "Count")
```
### 2D Density Plot
```{r, plot_3}
ggplot(car_seats_work, aes(x = price, y = sales)) +
geom_density_2d_filled(aes(contour_var = "ndensity")) +
facet_grid(urban ~ us) +
scale_x_continuous(labels = dollar_format(), breaks = seq(0, 200, 25)) +
scale_y_continuous(labels = dollar_format(), breaks = seq(0, 20, 5)) +
labs(x = "Price", y = "Sales (in thousands)", fill = "Density")
```